System ComPort autodialfromclipboard ToolBook Dialer defBounds defBounds 150,209,490,270 '488,427 150,209,490,270 Courier late( "Dialer.tbk cannot work without TBK-COMM.DLL."\ && " Please asure the path." reader author enterbook author sizeToPage reader sizeToPage enterbook tbk-comm.dll OpenComPort SetComPort CloseComPort IsComTxReady IsComRxReady WriteComPort ReadComPort FlushComTxBuffer FlushComRxBuffer SetComPortTxXlate Dialer.tbk cannot work without TBK-COMM.DLL. Please make sure TBK-COMM.DLL is in the path. ComSpeed DialPrefix ComBaud 4s_authorFlag s_AuthorFlag "Any the scripts 8may cause"\ && "problems fother books that dial. Click OK you still want level."\ f"OK" "Cancel" "OK" 4InHelp odefBounds MainWindow default "phone linkToCOMDLL suspend X"tbk-comm.dll" OpenComPort( SetComPort( CloseComPort( IsComTxReady( IsComRxReady( WriteComPort( ReadComPort( FlushComTxBuffer( FlushComRxBuffer( SetComPortTxXlate( showDialerWindow .tbk cannot work without TBK-COMM.DLL."\ && " Please asure path." showMyWindow c"no server" "dialer. 4inHelp exitHelp IsNumber s s + 0 fixPhoneNumber s look beginning "01234567890(#*" hasParenth -- now scan obvious 's no longer a -- valid "01234567890 -" cns <> "01234567890#*") IsPhoneNumber s "01234567890(),- ") trim s cs <> s ) <= 32 cs <> s ) <= 32 tryDial phNum 8=" & 8&& " =" & "No DLL" xisPhoneNumber( && "Only digits 0..9 T- ( ) , are allowed." "invalid DialPrefix -- count "01234567890#*" n > 6 portNo xisNumber( "I don't know what use."\ Setup 4attempting error" kComBaud mspeed talk H modem."\ ,128,128) < 0 "COM xavailable. It used Hanother"\ setup incorrect. Check ,8,1,0,0) ,"ATZ" & CR) readComPort( c"OK") "Modem does xrespond. Unable closeComPort( dialstring "ATDT" & & CR extraWait ) * 10) (4 + extrawait) "Pick up Fpress pace bar click OK." , "+++~~~ATH0" & CR) yield() ReadCompPort( znothing doHelp 4985,5000 disable 4985,515 "DDE Info" enable rWindow author showMyWindow enterbook leaveBook reader showDialerWindow doHelp exitHelp ixPhoneNumber linkToCOMDLL IsPhoneNumber IsNumber tryDial fixPhoneNumber yield author s_AuthorFlag Any changes to the scripts or objects in this book may cause problems with the book or with other books that may be using it to dial. Click OK if you still want to go to Author level. Cancel s_AuthorFlag s_AuthorFlag sizeToPage s_authorFlag reader sizeToPage enterbook defBounds sizeToPage defBounds phone number default InHelp linkToCOMDLL tbk-comm.dll OpenComPort SetComPort CloseComPort IsComTxReady IsComRxReady WriteComPort ReadComPort FlushComTxBuffer FlushComRxBuffer SetComPortTxXlate showDialerWindow Dialer.tbk cannot work without TBK-COMM.DLL. Please make sure TBK-COMM.DLL is in the path. suspend showDialerWindow MshowMyWindow send showMyWindow Dialer.tbk no server dialer.tbk suspend showMyWindow sizeToPage cpexitHelp defBounds sizeToPage defBounds inHelp leaveBook cpexitHelp IsNumber fixPhoneNumber 01234567890(#* 01234567890 - 01234567890#* hasParenth IsPhoneNumber 01234567890(),- tryDial phNum IsComRxReady linkToCOMDLL No DLL Phone Number fixPhoneNumber isPhoneNumber showDialerWindow is not a valid phone number. Only digits 0..9 and the characters - ( ) , or space are allowed. invalid phone number DialPrefix 01234567890#* DialPrefix ComPort isNumber showDialerWindow I don't know what port to use. Please use Setup before attempting to dial. Setup error ComBaud isNumber showDialerWindow I don't know what speed to use to talk to the modem. Please use Setup before attempting to dial. Setup error OpenComPort showDialerWindow COM port is not available. It is used by another application or setup is incorrect. Check Setup. Setup error ComBaud SetComPort WriteComPort readComPort showDialerWindow Modem does not respond. Unable to dial. Check Setup. closeComPort Setup error WriteComPort extrawait Pick up the phone, then press the space bar or click OK. +++~~~ATH0 WriteComPort yield ReadCompPort CloseComPort Dial OK extraWait dialstring default portNo phNum yield doHelp defBounds sizeToPage ox%disable default InHelp exitHelp DDE Info defBounds sizeToPage defBounds enable Phone Number default InHelp p7f7f7s activateInstance autodialFromClipboard "dummy" fixPhoneNumber(trim( isPhoneNumber( "phone activateInstance activateInstance autodialFromClipboard dummy dummy paste dummy fixPhoneNumber isPhoneNumber phone number buttonDown Phone Number .<1~6 dummy 678-4567 field-1 reset --** proportions moved + 15, + 15,\ + 15, + 15, + 15,\ reset reset phone number dial ( keydown keydown alignment centered 746-0086 reset --** proportions moved + 15, + 15,\ + 15, + 15,\ + 15, setCaption what reset setCaption buttonUp buttonDown reset buttonUp setCaption buttonDown Dial This field contains the number to dial. You can type in a number, or the number can be grabbed from the clipboard automatically when the AutoDial option in Setup is checked. button-Port reset --** proportions moved + 15, + 15,\ + 15, + 15,\ + 15, setCaption what X"tbkwin.dll" popMenu(WORD,STRING,INT, "Setup cannot work without TBKWIN.DLL."\ && " Please asure the path." mList "{Port,COM1,COM2,COM3,COM4,}," & \ "{Baud Rate,300,600,1200,2400,4800,9600,}," &\ "Prefix...,,AutoDial..." ComPort "*" & ComBaud L <> 0 "*" & autoDialFromClipboard "*" & oldPort oldBaud oldPref DialPrefix oldAuto , sysMagnification,\ =& "," & zthat cmore than 6 digits ( instance, 9 outside U):" \ r<> Cancel zfound on clipboard automatically"\ dialer f"Yes" reset setCaption buttonUp buttonDown reset buttonUp setCaption buttonDown tbkwin.dll popMenu Setup cannot work without TBKWIN.DLL. Please make sure TBKWIN.DLL is in the path. {Port,COM1,COM2,COM3,COM4,}, {Baud Rate,300,600,1200,2400,4800,9600,}, Prefix...,,AutoDial... ComPort ComPort ComBaud autoDialFromClipboard ComPort ComBaud DialPrefix autoDialFromClipboard popMenu ComPort ComBaud Prefix to use before a number that contains more than 6 digits (for instance, 9 to get an outside line): DialPrefix DialPrefix Dial any number found on the clipboard automatically when the dialer window is activated? autoDialFromClipboard ComPort ComBaud DialPrefix autoDialFromClipboard oldAuto oldPref oldBaud oldPort mList Setup doHelp reset --** proportions moved + 15, + 15,\ + 15, + 15,\ + 15, setCaption what disable 0,50.1875,0 enable buttonUp setCaption disable reset enable buttonUp doHelp reset setCaption disable enable 0,0,0 Help Click this button to dial the number. Click this button to set up the dialer options. Click this button to see this help display. Port Select the serial port to which your modem is selected. Your modem must be Hayes compatible. Baud Rate Select the highest baud rate your modem will support. Prefix Use this option to define a prefix that should be used before numbers of more than 6 digits. For instance, 9 to get access to an outside line. If you need a pause after the prefix, add one or more commas (the "," character). AutoDial When AutoDial is on, the dialer will look for a phone number on the clipboard when its window is activated. If it finds a phone number, it dials it immediately. Setup options: "DDE Info" reset --** proportions moved + 15, + 15,\ + 15, + 15,\ + 15, setCaption what reset buttonDown buttonUp setCaption buttonDown DDE Info DDE Info reset buttonUp setCaption h,@,e, More DDE Info You can dial from another ToolBook application, or any Windows application that supports DDE, including Word or Excel. To dial, Dialer.TBK must be running, of course. Then send it via DDE the following command to execute: send dial where is the phone number to dial. For example, an openScript statement to dial 555-1212 would be executeRemote "send dial" &&\ quote & "555-1212" & quote\ topic "dialer.tbk" Using DDE to dial from another application button-1 exitHelp reset --** proportions moved + 15, + 15,\ + 15, + 15,\ + 15, setCaption what reset buttonDown buttonUp setCaption buttonDown cpexitHelp reset buttonUp setCaption Dialer.tbk Version 1.03 by C.O. Copyright 1990 Asymetrix Corporation. 746-0086 k@t*b\aR